home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / scr104a.zip / MAKE.CMD < prev    next >
OS/2 REXX Batch file  |  1992-01-28  |  1KB  |  55 lines
  1. OpenBox 3   0 0 79 24  "- Scripta Automatic Script Generator_
  2.                           - leave packet name blank to quit "
  3. %which := "Z"
  4. %dummy := " "
  5. %packet := ""
  6. While $eq(%which,"Z")
  7.    RowCol 2 2
  8.    Message "What is the QWK packet name to be used in the generated script? "
  9.    Input %packet 8 8
  10.    If $len(%packet) = 0
  11.       %which := "X"
  12.    Else
  13.       $caps %packet
  14.       %fname := "%packet..CFG"
  15.       %tester := fopen %fname
  16.       If %NoError
  17.          %tester := fread/1 %which
  18.          %tester := fclose
  19.       Else
  20.          OpenBox 1   12 8 70 10  "- Press Esc to quit "
  21.          %i := %maxint
  22.          While %i = %maxint
  23.             RowCol 1 2
  24.             Message " (Q)mail, (T)omcat, Tomcat(2), (R)AMail or M(K)Qwk? "
  25.             GetKey %which %dummy
  26.             $caps %which
  27.             $chpos %i "QT2R#27" %which
  28.          EndWhile
  29.          CloseBox 1
  30.       EndIf
  31.    EndIf
  32.    Case "%which"
  33.       CaseOf "Q"
  34.          Script MakeQM4.CM0
  35.          %which := "Z"
  36.       CaseOf "T"
  37.          Script MakeTC3.CM0
  38.          %which := "Z"
  39.       CaseOf "2"
  40.          Script MakeTC2.CM0
  41.          %which := "Z"
  42.       CaseOf "R"
  43.          Script MakeRAM.CM0
  44.          %which := "Z"
  45.       CaseOf "K"
  46.          Script MakeRAMK.CM0
  47.          %which := "Z"
  48.       CaseOf "#27"
  49.          %which := "Z"
  50.       CaseOf Other
  51.          %which := "X"
  52.    EndCase
  53. EndWhile
  54. CloseBox 3
  55.